home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / JB.1520-3.C.SFX / house inventory (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  3KB  |  101 lines
  1. 1 REM DO NOT RENUMBER!
  2. 3 REM ***ORIGINAL WM. W. BRAUN  ***
  3. 5 REM CONVERTED TO PLOTTER B.PATZ
  4. 30 POKE53281,11:POKE53280,5
  5. 32 L= 12
  6. 33 E$="ENTRY TOO LONG! "
  7. 34 F$=" CHARACTER MAXIMUM!"
  8. 35 M$=CHR$(34)
  9. 36 F=1
  10. 40 PRINT"[147]"SPC(10)"HOME INVENTORY [146]":PRINTSPC(15)"MENU[144]"
  11. 45 PRINT"          ADD ITEM TO LIST---1"
  12. 46 PRINT"          DELETE ITEM--------2
  13. 47 [153]"          DISPLAY LIST-------3
  14. 48 PRINT"          PRINT LIST---------4"
  15. 49 PRINT"          EXIT THE PROGRAM---5"
  16. 60 PRINT"          PRESS KEY TO SELECT
  17. 65 [161]K$:[139]K$[178]""[167]65
  18. 67 [145][197](K$)[137]105,205,405,505,605
  19. 68 [153]" PRESS ONLY  1-6CLOSE!!":[129]T[178]0[164]2000:[130]:[137]40
  20. 100 [143] ** ADDITION **
  21. 105 [153]"STOPLOAD        ADDITION"
  22. 110 [153]"ENTER NAME OF ITEM:"
  23. 111 [133]N$:[139][195](N$)[177]35[167][153]""E$"35"F$:[137]110
  24. 112 [141] 710:[145]F[137]170,115
  25. 115 [153]"DATE BOUGHT:":[133]D$:[139][195](D$)[177]9[167][153]""E$"9"F$:[137]115
  26. 120 [153]"ORIGINAL COST OF ITEM:"
  27. 121 [133]C$:[139][195](C$)[177]9[167][153]""E$"9"F$:[137]120
  28. 125 [153]"SERIAL #(IF NONE --):"
  29. 126 [133]S$:[139][195](S$)[177]15[167][153]""E$"15"F$:[137]125
  30. 130 [153]"IS DATA ON SCREEN OK? (Y/N):
  31. 133 GETK$:IFK$="Y"THEN185
  32. 137 IFK$="N"THEN105
  33. 138 GOTO133
  34. 170 RESTORE:PRINT"[147] ITEM ALREADY IN LIST!":FORT=0TO3000:NEXT:GOTO105
  35. 185 RESTORE:LN=900+L:A=L+1:POKE646,1
  36. 191 PRINT"[147]"LN"D[193]"M$N$M$","M$D$M$","M$C$M$","M$S$
  37. 192 PRINT"32L="A:PRINT"GOTO197
  38. 194 [151]198,3:[129]X[178]0[164]2:[151]631[170]X,13:[130]:[128]
  39. 197 [151]646,6:[153]"LOAD"[166]178)"ITEM ADDED TO LIST"
  40. 198 [129]T[178]0[164]1500:[130]:[151]198,0:[137]1
  41. 200 [143] ** DELETION **
  42. 205 [153]"STOPLOAD        DELETION ":[153]"ENTER NAME OF ITEM:":[133]N$
  43. 215 [141]710:[145]F[137]240,235
  44. 235 [140]:[153]"LOAD NAME IS NOT IN LIST!"
  45. 236 [129]T[178]0[164]1500:[130]:[140]:[137]40
  46. 240 LN[178][194](64)[172]256[170][194](63):[140]
  47. 250 [151]646,1:[153]"LOAD"LN:[153]"GOTO270"
  48. 260 [153]"":[151]198,2:[151]631,13:[151]632,13:[128]
  49. 270 [151]646,6:[151]198,0:[153]"LOAD    ITEM DELETED":[129]T[178]0[164]1500:[130]:[137]1
  50. 400 [143] ** DISPLAY LIST **
  51. 405 [153]"LOAD  HOME INVENTORY LIST "
  52. 410 [135]N$,D$,C$,S$
  53. 415 [139]F[178]1[175]N$[178]"END"[167][153]"NOTHING IN LIST YET!":[140]:[137]485
  54. 416 F[178]2
  55. 420 [139]N$[178]"END"[167]480
  56. 435 [153]"  "N$
  57. 436 [153]" PURCHASED:"D$
  58. 437 [153]" ORIG. COST: \"C$
  59. 438 [153]" SER. #:"S$
  60. 450 [153]"   PRESS F7WAIT FOR NEXT ITEM"
  61. 451 [153]"  PRESS  F1WAIT FOR MENUON
  62. 460 GETK$
  63. 465 IFK$="[133]"THENRESTORE:GOTO1
  64. 466 IFK$="[136]"THEN405
  65. 470 GOTO460
  66. 480 PRINT"[147]     END OF LIST":RESTORE
  67. 485 FORT=0TO2000:NEXT:GOTO1
  68. 500 ** PRINT LIST **
  69. 505 PRINT"[147]      PRINT LIST ":PRINT"[144]ENTER CURRENT DATE:":INPUTD$
  70. 507 PRINT"ENTER  YOUR NAME:":INPUTN$
  71. 508 OPEN4,6:OPEN3,6,3:PRINT#3,0
  72. 510 PRINT#4,CHR$(14)TAB(12)"HOME INVENTORY LIST"CHR$(13)
  73. 515 PRINT#4,CHR$(13)CHR$(15)N$CHR$(13)D$CHR$(13)
  74. 520 READN$,D$,C$,S$,X$,K$,F$,E$
  75. 525 IFN$="END"THEN580
  76. 530 IFX$="END"THEN570
  77. 535 PRINT#4,"    "N$TAB(45-LEN(N$))X$
  78. 540 PRINT#4,"   DATE PURCHASED: "D$TAB(45-LEN(D$)-16)"DATE PURCHASED: "K$
  79. 545 PRINT#4,"   ORIGINAL COST: \"C$TAB(45-LEN(C$)-16)"ORIGINAL COST: \"F$
  80. 550 PRINT#4,"   SERIAL NUMBER: "S$TAB(45-LEN(S$)-15)"SERIAL NUMBER: "E$CHR$(13)
  81. 560 GOTO520
  82. 570 PRINT#4,"    "N$:PRINT#4,"    DATE PURCHASED: "D$
  83. 575 PRINT#4,"    ORIGINAL COST: \"C$
  84. 576 PRINT#4,"    SERIAL NUMBER:"S$CHR$(13)
  85. 580 PRINT#4,CHR$(13)CHR$(14)"END OF LIST"CHR$(15):CLOSE4:CLOSE3:RESTORE:GOTO1
  86. 600 REM ** END PROGRAM **
  87. 605 PRINT"[147][144]IF YOU MADE ADDITIONS OR DELETIONS,"
  88. 606 PRINT"RE-SAVE THE PROGRAM !":END
  89. 700 REM ** SEARCH ROUTINE **
  90. 710 READX$:IFX$=N$THENF=1:RETURN
  91. 715 IFX$="END"THENF=2:RETURN
  92. 720 GOTO710
  93. 800 REM ** LIST DATA **
  94. 801 REM THESE ARE POKED IN
  95. 802 REM DO NOT RENUMBER!
  96. 908 DATA"COMPUTER","01/01/86","139.00","12345
  97. 909 [131]"PRINTER","01/01/87","125.00","54321
  98. 910 DATA"PLOTTER","12/25/87","30.00","
  99. 911 [131]"TELEVISION SET","1/12/86","230","--
  100. 6000 DATA"END","END","END","END","END","END","END","END
  101.